home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 63.zip / BS1 part 63 / Hisoft Basic AGA v1.04D d2.adf / rotate.bas < prev    next >
BASIC Source File  |  1989-05-17  |  235b  |  17 lines
  1. ' a silly example program, showing the extended PTAB statement
  2.  
  3. pi=4*ATN(1)
  4. i=-2*pi
  5. c=1
  6. COLOR c
  7. DO
  8.     i=i+0.15
  9.     IF i>pi*2 THEN i=i-pi*2
  10.         INCR c
  11.         IF c>3 THEN c=1
  12.         COLOR c
  13.     PRINT PTAB(300+200*COS(i),90+80*SIN(i));"HiSoft BASIC";
  14. LOOP
  15.  
  16.  
  17.